модуль рандом

  ;; повертає випадкове число між 0 та 1
  дія число() число
    global.Math.random()
  кінець

  ;; повертає випадкове ціле число у даному проміжку від мінімального значення (включно) до максимального (включно)
  дія проміжок(мін число, макс число) число
    макс = макс + 1
    різниця = макс-мін
    global.Math.trunc(число()*різниця + мін)
  кінець

  ;; повертає випадковий елемент списку
  дія елемент(вхідний_список список)
    вхідний_список[проміжок(0, вхідний_список.довжина()-1)]
  кінець

  ;; повертає випадкове логічне значення ("так" або "ні")
  дія логічне() число
    результат = проміжок(0, 1)
    якщо результат == 0
      результат = ні
    інакше
      результат = так
    кінець
    результат
  кінець

  ;; повертає НОВИЙ список, складений із елементів даного у випадковому порядку
  дія перемішати(вхідний_список список) список
    новий_список = []
    поки вхідний_список.довжина() > 0
      друк(вхідний_список)
      випадковий_елемент = елемент(вхідний_список)
      друк(випадковий_елемент)
      новий_список.додати(випадковий_елемент)
      змінений_список = []
      вже_перенесено = ні
      перебрати вхідний_список як елементи
        якщо ( елементи != випадковий_елемент ) або ( вже_перенесено == так )
          змінений_список.додати(елементи)
        інакше
          вже_перенесено = так
        кінець
      кінець
      вхідний_список = змінений_список
      друк(вхідний_список)
    кінець
    новий_список
  кінець

  дати число
  дати проміжок
  дати елемент
  дати логічне
  дати перемішати
кінець

дати рандом